home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 2001 October / macformat-108.iso / Shareware / Math scientific / PsyScript / libraries / file.lib / file.lib.rsrc / TEXT_1128.txt < prev    next >
Encoding:
Text File  |  2001-08-04  |  1.6 KB  |  63 lines
  1. 11/6/01
  2. added on stringToList(theString, theDelimiters)
  3.  
  4. 18/5/01
  5. modified createNewSubjectID() not to accept empty subject IDs
  6. fixed stupid bugs in writeToCompanionFile(theData, fileSuffix)
  7.  
  8.  
  9. 15/5
  10. added
  11. distinct(theList)
  12. union(listA, listB)
  13. intersection(listA, listB)
  14.  
  15. 29/4
  16. general cleanup
  17.  
  18. 23/4/01
  19. added 2 handlers to aid setting lists of noticed keys
  20. setNoticed of keyName given mapping:theMapping --setNoticed of "K" given mapping:"name you want"
  21. noticeKeyboard(keyList)
  22.  
  23. improved error handling of readSpreadsheet()
  24. added readspreadsheet1D() --reads lines as items
  25.  
  26. 23/April/01
  27. Modified sample(itemCount, TheList, replacing) to be more efficient following comments from John Vokey <vokey@uleth.ca>
  28.  
  29. Improved speed of sort routine by 10 times
  30. (Howard Peters" <hpeters@rockriver.net> )
  31.  
  32. 18/April/2001
  33. changed createNewSubjectID to allow adding on to an existing file
  34.  
  35. note: this could be changed to allow overwrite, append, or fail.
  36.  
  37. added property to store key state
  38. property pKeyState : "" --contents of every key for restoring to a previous state
  39.  
  40. Added key state saving & 
  41. on saveKeyStates()
  42.     tell application "PsyScript"
  43.         set pKeyState to contents of every key
  44.     end tell
  45. end saveKeyStates
  46.  
  47.  
  48. on restoreKeyStates()
  49.     tell application "PsyScript"
  50.         repeat with aKey in pKeyState
  51.             set zz to name of aKey
  52.             set noticed of key zz to noticed of aKey
  53.             set mapping of key zz to mapping of aKey
  54.         end repeat
  55.     end tell
  56. end restoreKeyStates
  57.  
  58. on centreOfRect(tRect) --format = {l,t,r,b}
  59.     set x to (item 3 of tRect) - (item 1 of tRect)
  60.     set y to (item 4 of tRect) - (item 2 of tRect)
  61.     return {x, y}
  62. end centreOfRect
  63.